home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / (A)TB / (A)TBX.ADF / ClockDJv5.04 / rexx / PointCopy.rexx < prev    next >
OS/2 REXX Batch file  |  1992-03-18  |  998b  |  38 lines
  1. /* Multiple file copy */
  2. options results
  3.  
  4. address clockdj
  5. setcedhide ""
  6. setcedshow ""
  7. setcedtitle "Select files to copy"
  8. setceddir "VD0:"
  9. setcedfile ""
  10. cedextendedrequester
  11. files = result;if files = "" then exit
  12. setceddir "RAM:"
  13. setcedtitle "Select destination directory"
  14. cedrequesterdir
  15. dir = result;if dir = "" then exit
  16. win = "con:s*/0/50/640/350//cd/02\r\c"
  17. if ~open('console',win) then exit      /* Window for all activity */
  18. call writeln 'console','9b'x'1;32;40mCopy:'||'9b'x'0;31;40m'
  19. call writech 'console',files
  20. call writeln 'console','9b'x'1;32;40mTo: '||'9b'x'0;31;40m'||dir
  21. POPREQUESTER  'Do you really want to copy these?'
  22. if result = no then exit
  23. address command
  24. if index(files,'0a'x) = 0 then do
  25.     "runwsh >nil: copy >nil:" '"'files'"' "to" dir "clone"
  26.     exit
  27.     end
  28. pos1 = 1
  29. do forever
  30.     pos2 = index(files,'0a'x,pos1+1)
  31.         if pos2 = 0 then do
  32.         say 'All done.';exit
  33.         end
  34.     else nop
  35.     "runwsh >nil: copy >nil:" '"'substr(files,pos1,(pos2-pos1))'"' "to" dir "clone"
  36.       pos1 = pos2+1
  37.       end
  38.